home *** CD-ROM | disk | FTP | other *** search
/ Chip: Internet / Chip Internet.iso / viewer / qpeg / drvsrc / cirrus.asm < prev    next >
Assembly Source File  |  1994-05-01  |  835b  |  45 lines
  1. ;
  2. ; QPEG video driver
  3. ; for Cirrus Logic CL-GD 542X chipsets
  4. ; with up to 1 Mb of video memory.
  5. ;
  6. ; Modified by Ben Jos Walbeehm (Walbeehm@fsw.ruu.nl).
  7. ; The 1280x1024x16 mode now works correctly.
  8. ; November 21, 1993.
  9. ;
  10.  
  11.         .286
  12. Code    Segment Para 'Code'
  13.         Assume  cs:Code
  14.         Org 100h
  15.  
  16. Procs   dw      Bank,Init,Exit,0
  17.  
  18. Bank:   shl     al,4
  19.         push    ax
  20.         mov     dx,03ceh
  21.         mov     al,9
  22.         out     dx,al
  23.         inc     dx
  24.         pop     ax
  25.         out     dx,al
  26.         dec     dx
  27.         mov     al,8
  28.         out     dx,al
  29.         retf
  30.  
  31. Init:   mov     dx,03c4h
  32.         mov     al,6
  33.         out     dx,al
  34.         inc     dx
  35.         mov     al,12h
  36.         out     dx,al
  37.         retf
  38.  
  39. Exit:   retf
  40.  
  41. Code    Ends
  42.         End Procs
  43.  
  44. ; End of source.
  45.